home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / testwindows.ada < prev    next >
Text File  |  1993-10-09  |  1KB  |  42 lines
  1. WITH Windows;
  2. WITH Screen;
  3. PROCEDURE TestWindows IS
  4.  
  5.   -- very simple test of Windows package
  6.  
  7.   W1: Windows.Window;
  8.   W2: Windows.Window;
  9.   W3: Windows.Window;
  10.   
  11. BEGIN
  12.  
  13.   Screen.ClearScreen;
  14.  
  15.   W1 := Windows.Open(UpperLeft => (Row => 2, Column => 5),
  16.                      Height => 10, Width => 18);
  17.   W2 := Windows.Open(UpperLeft => (Row => 15, Column => 20),
  18.                      Height => 7, Width => 7);
  19.  
  20.   Windows.Borders(W => W1, Corner => '+',Down => '|', Across => '-');
  21.   Windows.Title(W1, "Window One", '_');
  22.   Windows.Put(W1, "This is the first string going in the window.");
  23.   Windows.Put(W1, "And this is the second one.");
  24.  
  25.   Windows.Put(W2, "This is a window without a border or a title.");
  26.  
  27.   W3 := Windows.Open(UpperLeft => (Row => 5, Column => 35),
  28.                      Height => 8, Width => 25);
  29.  
  30.   Windows.New_Line(W1);
  31.   Windows.Put(W1, "Bye.");
  32.  
  33.   Windows.Borders(W => W3, Corner => '*',Down => '*', Across => '*');
  34.   Windows.Title(W3, "Window Three", ';');
  35.   Windows.Put(W3, "This is the first string going in the third window.");
  36.   Windows.Put(W3, "And this is the second one.");
  37.   Windows.New_Line(W3);
  38.   Windows.Put(W3, "So long.");
  39.   Screen.MoveCursor(To => (Row => 23, Column => 1));
  40.  
  41. END TestWindows;
  42.